home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Sound / MrMPEG / Sort.rexx < prev    next >
OS/2 REXX Batch file  |  1997-11-22  |  498b  |  22 lines
  1. /* Sort.rexx */
  2.  
  3. options results; address MrMPEG
  4.  
  5. MUIA_List_Active    = 0x8042391c;    MUIA_List_Entries    = 0x80421654
  6. MUIM_List_Sort        = 0x80422275
  7.  
  8. list ID SLIST ATTRS MUIA_List_Entries; max = result
  9. list ID SLIST ATTRS MUIA_List_Active
  10. list ID SLIST POS result; current = result
  11. if current ~= 'RESULT' then do
  12.   method ID SLIST MUIM_List_Sort
  13.   do i = 0 to max - 1
  14.     list ID SLIST POS i
  15.     if result = current then do
  16.       list ID SLIST ATTRS MUIA_List_Active i
  17.       leave
  18.     end
  19.   end
  20. end
  21. return
  22.